Sub AddToMembers()
Dim rst1 As Recordset

'Create a recordset reference, then set its properties
Set rst1 = New ADODB.Recordset
rst1.CursorType = adOpenKeyset
rst1.LockType = adLockOptimistic

'Open the recordset
rst1.Open "MEMBERS", CurrentProject.Connection

'Add a new record
With rst1
     .AddNew
          .Fields(MemberID) = 106
          .Fields(FirstName) = Bob
          .Fields(LastName) = Steinfeld
          .Fields(Phone) = (503) 555-9876
     .Update
End With

'Clean up after yourself
rst1.Close
Set rst1 = Nothing

End Sub
